home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Win95 Start Menu 2.xpl < prev    next >
Text File  |  2002-01-01  |  4KB  |  111 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH 1"="Appearance\Start menu\Windows 95"
  5. "UIPATH 2"="Appearance\Start menu\Windows NT"
  6. "UIPATH 3"="Appearance\Start menu\Windows 98"
  7. "UIPATH 4"="Appearance\Start menu\Windows ME"
  8. "UIPATH 5"="Appearance\Start menu\Windows 2000"
  9. "NAME"="Cascaded Special Folders"
  10. "VERSION"="2.03"
  11. "OSVERSION"=111110"
  12. "LANGUAGE"="VBScript"
  13. "DESCRIPTION 1"="Use this plug-in to show some of the "special" folder of Window in cascading menu so you can easily access them. These items will appear on top of your Start Menu."
  14. "DESCRIPTION 2"="NOTE: Do not activate ANY of these options if you are using an HP OfficeJet and want to use the scanner software that comes with it. It seems the software of this HP Combo does not like the directories X-Setup creates."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="IE6+ fix found by Neil T."
  19.  
  20.  
  21. 'Declaration of some constants
  22. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Start Menu"
  23. sPath=""
  24.  
  25.   sV1="Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
  26.        sV2="Printers.{2227A280-3AEA-1069-A2DE-08002B30309D}"
  27.     sV3="Recycle Bin.{645FF040-5081-101B-9F08-00AA002F954E}"
  28. sV4="Scheduled Tasks.{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"
  29.         sV5="History.{FF393560-C2A7-11CF-BFF4-444553540000}"
  30.        sV5file="History.{FF393560-C2A7-11CF-BFF4-444553540000}\desktop.ini"
  31.   sV6="Subscriptions.{F5175861-2688-11D0-9C5E-00AA00A45957}"
  32.  
  33. 'Called when the Plugin is started
  34. SUB Plugin_Initialize 
  35.  sPath=RegReadValue(sP)
  36.  if FolderExists(sPath) then
  37.     if right(sPath,1)<>"\" then sPath=sPath & "\"
  38.  
  39.     Call SetUIElement(1,"Show cascading 'Control Panel' in Start menu")
  40.     Call ReadIt(1,sPath & sV1)
  41.  
  42.     Call SetUIElement(2,"Show cascading 'Printers' in Start menu")
  43.     Call ReadIt(2,sPath & sV2)
  44.  
  45.     Call SetUIElement(3,"Show cascading 'Recycle Bin' in Start menu")
  46.     Call ReadIt(3,sPath & sV3)
  47.  
  48.     Call SetUIElement(4,"Show cascading 'Scheduled Tasks' in Start menu")
  49.     Call ReadIt(4,sPath & sV4)
  50.  
  51.     Call SetUIElement(5,"Show cascading 'History' in Start menu")
  52.     Call ReadIt(5,sPath & sV5)
  53.  
  54.     Call SetUIElement(6,"Show cascading 'Subscriptions' in Start menu")
  55.     Call ReadIt(6,sPath & sV6)
  56.  else
  57.     Disable
  58.  end if
  59.  
  60. END SUB
  61.  
  62. 'Called when the Plugin should validate the Data the user has entered
  63. SUB Plugin_CheckData(ElementIndex)
  64. END SUB
  65.  
  66. 'Called when the Plugin should apply the changes
  67. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  68.  Call WriteIt(1, sPath & sV1)
  69.  Call WriteIt(2, sPath & sV2)
  70.  Call WriteIt(3, sPath & sV3)
  71.  Call WriteIt(4, sPath & sV4)
  72.  
  73.  'IE6+ fix!
  74.  If GetUIElementEx(5)=true then
  75.     Call WriteIt(5, sPath & sV5)
  76.     Call IniWriteValue(sPath & sV5file,".ShellClassInfo","UICLSID","{7BD29E00-76C1-11CF-9DD0-00A0C9034933}")
  77.     Call FileSetAttribute(sPath & sV5file,"H+") 
  78.  else
  79.     Call FileSetAttribute(sPath & sV5file,"H-") 
  80.     Call FileDelete(sPath & sV5file)
  81.     Call WriteIt(5, sPath & sV5)
  82.  end if
  83.  
  84.  Call WriteIt(6, sPath & sV6)
  85.  
  86.  
  87. END SUB
  88.  
  89.  
  90. 'Called when the Plugin is about to be removed from memory
  91. SUB Plugin_Terminate
  92. END SUB
  93.  
  94.  
  95. Sub ReadIt(ITEM,FILENAME)
  96.  if FolderExists(FILENAME) then 
  97.     Call SetUIElementEx(ITEM,true)
  98.  end if
  99. End Sub
  100.  
  101. Sub WriteIt(ITEM,FILENAME)
  102.  if GetUIElementEx(ITEM)=true then
  103.     if FolderExists(FILENAME)=false then
  104.        Call FolderCreate(FILENAME)
  105.     end if
  106.  else
  107.     if FolderExists(FILENAME)=true then       
  108.        Call FolderDelete(FILENAME)
  109.     end if
  110.  end if
  111. End Sub